home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / A / Amoritization (.txt) < prev    next >
Wingz Spreadsheet  |  1989-03-31  |  10KB  |  213 lines
  1. Amoritization
  2. WZSSWNGZ
  3. WNGZWZSS01b1
  4. Geneva
  5. Geneva    @
  6. Geneva
  7. amoritization
  8. Amoritization Table
  9. First Payment Date
  10. Principal Borrowed
  11. Term in months
  12. Beginning Interest Rate
  13. Payment
  14. Payment
  15. Payment
  16. Current
  17. Current
  18. Interest
  19.     Principal
  20.     Principal
  21. Number
  22. Payment
  23. Portion
  24. Portion
  25. Balance
  26. Cancel
  27. AMORITIZATION:DUIT = 1 AMORITIZATION:date = DATEVALUE(CTSTRING(4,0)) AMORITIZATION:principal = VALUE(CTSTRING(6,0)) 
  28.             AMORITIZATION:term = VALUE(CTSTRING(8,0)) AMORITIZATION:rate = VALUE(CTSTRING(10,0))/100
  29. First Payment Date:
  30. MM-DD-YYh
  31. Principal Borrowed:
  32. Term in Months:
  33. Interest Rate:
  34. =R3C6
  35. =R12C2 + CHOOSE(MONTH(R12C2)-1,31,IF(MOD(YEAR(R12C2),4)=0 AND 
  36.                YEAR(R12C2) <> 100,29,28),31,30,31,30,31,31,30,31,30,31)
  37. =R6C6
  38. =R12C3
  39. =R7C6
  40. `=IF(R13C3=R12C3,IF(R12C7<R12C4,R12C7*(1+R13C3/12),R12C4),
  41.             PMT(R12C7,R13C3/12,$R5$C6-R13C1+1))
  42. =R12C3/12*R4C6
  43. =R12C3/12*R12C7
  44. =R12C4-R12C5
  45. =IF(R12C7<0.005,0,R13C4-R13C5)
  46. =R4C6-R12C6
  47. =R12C7-R13C6
  48. principal
  49. enter_data
  50. PRINT_DATA
  51. DEFINE DUIT,date,principal,term,rate,fld
  52. { fld is a flag for showing the instruction field or not }
  53. FUNCTION enter_data()
  54.     date = R3C6
  55.     principal = R4C6
  56.     term = R5C6
  57.     rate = R6C6
  58.     NEW MODAL DIALOG BOX AT (-1,-1) (3.2 INCH,2.5 INCH)
  59.     ADD PUSH BUTTON "OK","Cancel" AT (.6 INCH,2 INCH) +(2 INCH,.4 INCH)
  60.     DIALOG CANCEL PUSH BUTTON
  61.     SELECT CONTROL 1
  62.     DIALOG DEFAULT PUSH BUTTON
  63.     SCRIPT "AMORITIZATION:DUIT = 1 AMORITIZATION:date = DATEVALUE(CTSTRING(4,0)) AMORITIZATION:principal = VALUE(CTSTRING(6,0)) 
  64.             AMORITIZATION:term = VALUE(CTSTRING(8,0)) AMORITIZATION:rate = VALUE(CTSTRING(10,0))/100"
  65.     { CONTROL 3 }
  66.     ADD TEXT "First Payment Date:" AT (.05 INCH,.1 INCH) +(2 INCH,.3 INCH)
  67.     NO LINE BORDER
  68.     { CONTROL 4 }
  69.     ADD FIELD AT (2 INCH,.1 INCH) +(1 INCH,.3 INCH)
  70.     IF date = 0
  71.         FIELD TEXT ""
  72.     ELSE
  73.         FIELD TEXT ADATE(date,"MM-DD-YY")
  74.     END IF
  75.     { CONTROL 5 }
  76.     ADD TEXT "Principal Borrowed:" AT (.05 INCH,.5 INCH) +(1.9 INCH,.3 INCH)
  77.     NO LINE BORDER
  78.     { CONTROL 6 }
  79.     ADD FIELD AT (2 INCH,.5 INCH) +(1 INCH,.3 INCH)
  80.     FIELD TEXT principal
  81.     { CONTROL 7 }
  82.     ADD TEXT "Term in Months:" AT (.05 INCH,1 INCH) +(1.9 INCH,.3 INCH)
  83.     NO LINE BORDER
  84.     { CONTROL 8 }
  85.     ADD FIELD AT (2 INCH,1 INCH) +(1 INCH,.3 INCH)
  86.     FIELD TEXT term
  87.     { CONTROL 9 }
  88.     ADD TEXT "Interest Rate:" AT (.05 INCH,1.5 INCH) +(1.9 INCH,.3 INCH)
  89.     NO LINE BORDER
  90.     { CONTROL 10 }
  91.     ADD FIELD AT (2 INCH,1.5 INCH) +(1 INCH,.3 INCH)
  92.     FIELD TEXT rate*100
  93.     DUIT = 0
  94.     USE DIALOG BOX
  95.     IF DUIT
  96.         REPAINT OFF
  97.         SELECT RANGE R3C6
  98.         FORMAT DATE 4
  99.         SELECT RANGE R4C6,R7C6
  100.         FORMAT CURRENCY
  101.         USE COMMAS
  102.         SELECT RANGE R5C6
  103.         PRECISION 0
  104.         SELECT RANGE R6C6
  105.         FORMAT PERCENT
  106.         PUT date INTO R3C6
  107.         PUT principal INTO R4C6
  108.         PUT term INTO R5C6
  109.         PUT rate INTO R6C6
  110.         PUT PMT(principal,rate/12,term) INTO r7c6
  111.         SELECT RANGE MAKERANGE(1,12,1,12+TERM-1)
  112.         FILL
  113.         PRECISION 0
  114.         PUT "=R3C6" INTO R12C2
  115.         PUT "=R12C2 + CHOOSE(MONTH(R12C2)-1,31,IF(MOD(YEAR(R12C2),4)=0 AND 
  116.                YEAR(R12C2) <> 100,29,28),31,30,31,30,31,31,30,31,30,31)" INTO R13C2
  117.         SELECT RANGE MAKERANGE(2,12,2,13)
  118.         FORMAT DATE 4
  119.         PUT "=R6C6" INTO R12C3
  120.         PUT "=R12C3" INTO R13C3
  121.         SELECT RANGE MAKERANGE(3,12,3,13)
  122.         FORMAT PERCENT
  123.         PUT "=R7C6" INTO R12C4
  124.         PUT "=IF(R13C3=R12C3,IF(R12C7<R12C4,R12C7*(1+R13C3/12),R12C4),
  125.             PMT(R12C7,R13C3/12,$R5$C6-R13C1+1))" INTO R13C4
  126.         PUT "=R12C3/12*R4C6" INTO R12C5
  127.         PUT "=R12C3/12*R12C7" INTO R13C5
  128.         PUT "=R12C4-R12C5" INTO R12C6
  129.         PUT "=IF(R12C7<0.005,0,R13C4-R13C5)" INTO R13C6
  130.         PUT "=R4C6-R12C6" INTO R12C7
  131.         PUT "=R12C7-R13C6" INTO R13C7
  132.         SELECT RANGE MAKERANGE(4,12,7,13)
  133.         FORMAT CURRENCY
  134.         USE COMMAS
  135.         SELECT RANGE MAKERANGE(2,13,7,12+term-1)
  136.         COPY DOWN
  137.         UNSELECT
  138.         REPAINT ON
  139.         REPAINT WINDOW
  140.     END IF
  141. END FUNCTION
  142. FUNCTION PRINT_DATA()
  143.     REPAINT OFF
  144.     SELECT RANGE A10..AVLH11
  145.     TITLES
  146.     SELECT RANGE MAKERANGE(1,1,7,11+TERM)
  147.     REPORT PRINT RANGE
  148.     UNSELECT
  149.     REPAINT ON
  150.     REPAINT WINDOW
  151.     PRINT DIALOG
  152.     REPAINT OFF
  153.     HIDE TITLES
  154.     GO TO CELL A1
  155.     REPAINT ON
  156.     REPAINT WINDOW
  157. END FUNCTION
  158. Chicago
  159. Geneva
  160.               Amoritization Table
  161. NOTE:  If the buttons on the worksheet do not seem to operate, make sure the name of the worksheet is "Amoritization" and has not been renamed.   If the name has been changed, rename it back to "Amoritization".  To hide these directions, just click on the "Instructions" button.
  162. This worksheet provides an example amoritization table to calculate loan payments, the interest and principal portions, and loan balance.
  163. TO ENTER DATA:  Click on the "Enter Data" button.  This will present you with a dialog box with prompts.  Enter the first payment date in any format that Wingz recognizes as a valid date format (ie. mm/dd/yy, mm-dd-yy,d-mon-yy).  Next, enter the principal borrowed, followed by the term of the loan in months.  If it is a thirty year loan, enter 360.  Enter the interest rate next.  Enter the rate as an annual percentage rate.  For example, if the annual interest rate is 10 percent, enter 10.  If the interest rate is .5 percent per month, the annual rate would be .5*12, or 6 percent, so enter a 6.
  164. If data has already been entered once into the amoritization table, then the entry fields default to the values previously entered.  To change the values, just move to the field to edit with the Tab key or select it with the mouse and change the information.
  165. TO CLEAR DATA:  Click on the "Clear Data" button.  This will clear all amoritization information but will not clear the loan information.
  166. TO PRINT THE WORKSHEET:  Click the "Print Data" button.   Make sure you have chosen a printer with the Chooser.
  167. Geneva
  168. Geneva
  169. Geneva
  170. Instructionser 
  171. Instructions
  172. AMORITIZATION
  173. fldIF AMORITIZATION:fld = 0
  174.     SHOW FIELDS
  175.     AMORITIZATION:fld = 1
  176. ELSEIF AMORITIZATION:fld = 1
  177.     HIDE FIELDS
  178.     AMORITIZATION:fld = 0
  179. END IF
  180. Chicago
  181. Chicago
  182. Print Datanter 
  183. Print Data
  184. AMORITIZATION
  185. PRINT_DATACALL AMORITIZATION:PRINT_DATA()
  186. Chicago
  187. Chicago
  188. Clear Datanter 
  189. Clear Data
  190. REPAINT OFF
  191. SELECT RANGE r12c1..r5000c7
  192. CLEAR
  193. UNSELECT
  194. REPAINT ON
  195. REPAINT WINDOW
  196. Chicago
  197. Chicago
  198. Enter Datanter 
  199. Enter Data
  200. AMORITIZATION
  201. ENTER_DATACALL AMORITIZATION:ENTER_DATA()
  202. Chicago
  203. Chicago
  204. i you to put any options you want
  205. Amoritization
  206. you displaying all thests 
  207. stats and then you can also have a chance to drive the different cars on a 
  208. test track.  It is very nic
  209. Wingz amortization schedule.
  210. Wingz amortization schedule.le.
  211. Long Description
  212. Brief Description
  213.